home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
BBS Toolkit
/
BBS Toolkit.iso
/
maximus
/
mul100.zip
/
SETCRDT.SCR
< prev
next >
Wrap
Text File
|
1993-02-01
|
488b
|
24 lines
// SETCRDT.SCR -- Set Credit for All Records -- Version 1.00
//
// Script program for MUL - the Maximus User Language
// MUL is (C) Copyright 1990-93 by CodeLand Australia
// SETCRDT sets the credit value for all user records.
main ()
{
int rec = 1;
if (BaseOpen ("USER.BBS")) {
while (BaseRead (rec)) {
USRcredit = 10000;
BaseWrite (rec);
++rec;
}
BaseClose ();
}
}
// End of script